home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs19.d81 / spectrum.sfx / sprite data (.txt) < prev    next >
Commodore BASIC  |  1992-09-01  |  955b  |  27 lines
  1. 700 NM$="FILENAME"
  2. 705 OPEN6,8,6,"0:"+NM$+",S,R"
  3. 706 FOR HJ=1TO504
  4. 707 INPUT#6,YY
  5. 708 V(HJ)=YY
  6. 709 NEXT
  7. 710 CLOSE 6
  8. 791 DIM V(600):DIM G(100)
  9. 930 R=0:FORHK=1TO504STEP8:R=R+1:G(R)=0
  10. 1000 IFV(HK+0)<>0THEN G(R)=G(R)+128
  11. 1001 IFV(HK+1)<>0THEN G(R)=G(R)+64
  12. 1002 IFV(HK+2)<>0THEN G(R)=G(R)+32
  13. 1003 IFV(HK+3)<>0THEN G(R)=G(R)+16
  14. 1004 IFV(HK+4)<>0THEN G(R)=G(R)+8
  15. 1005 IFV(HK+5)<>0THEN G(R)=G(R)+4
  16. 1006 IFV(HK+6)<>0THEN G(R)=G(R)+2
  17. 1007 IFV(HK+7)<>0THEN G(R)=G(R)+1
  18. 1008 NEXT
  19. 1010 REM RUNMBER TO FIT YOUR PROGRAMS. USE G(1-64) FOR YOUR 64 SPRITE DATA
  20. 1011 REM STATEMENTS... USE POKE 53287,C TO SET SPRITE COLOR... FOR MORE INFO
  21. 1012 REM ON SPRITES SEE THE PROGRAMMERS REFERENCE GUIDE, PAGE 153-181,
  22. 1013 REM ESPECIALLY NOTING THE CHART ON PAGE 176. REMEMBER V=53248 ON THIS
  23. 1014 REM CHART. ALSO REMEMBER TO TURN ON MULTI COLORED SPRITES, AND SET ALL
  24. 1015 REM FOUR COLORS IF THE FILE IS A MULTI COLORED SPRITE. IF YOU DO NOT
  25. 1016 REM UNDERSTAND THE SPRITE EXPLANATION IN THE PROGRAMMERS REFERENCE GUIDE,
  26. 1017 REM FEEL FREE TO WRITE ME WITH YOUR QUESTIONS.
  27.